Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/TOUR.DIR/00005_Script_5

Text File | 1995-11-15 | 4KB | 163 lines

on idle
  showHilite
  --goMovieGo
  pass
end idle

on exitFrame
  go to the frame
end

on patchpal
  global gTourFixPal
  if not voidP(gTourFixPal) then gTourFixPal(mPatchIt)
end patchpal

on startMovie
  global gCom

  set gCom = 0

  setLocalVariables
  buildTourButtons
  buildTourList
  newTour
end startMovie

on newTour
  global gTourLabel, gPageIndex
  global gTourTimeSS, gTourTimeCL, gTourTimeMW

  if (the frame > 1) and (the frameLabel <> "") then set gTourLabel = the frameLabel

  if voidP(gTourLabel) then put "CLS" into gTourLabel

  patchPal
  go frame (label(gTourLabel)-1)
  puppetTransition 50,1,120,false
  go next
  --addToRetrace
  put 0 into gPageIndex
  updateStage


  set tourTime = -1
  do "set tourTime = gTourTime"&char 1 to 2 of gTourLabel

  if tourTime >= 0 then continue
end newTour

on stopMovie
  global gTourFixPal
  --  set the visible of sprite 9 to true
  --  set the visible of sprite 10 to true
  --  if the machineType <> 256 then gTourFixPal(mDispose)
  --closeXlib "FixPalette.XObj"
  puppetSprite 15, 0
  unload
  pass
end stopMovie

on setLocalVariables
  global gTourIsPlaying, gRetraceNames, gVolume
  global gCurrChan,gFirsChan,gLastChan,gPrevHilite,gTourFixPal
  if voidP(gRetraceNames) then put empty into gRetraceNames
  --if voidP(gVolume) then put 7 into gVolume
  set the visible of sprite 9 to false
  set the visible of sprite 10 to false
  if the machineType <> 256 then
    openxlib "FixPalette XObj"
    if voidP(gTourFixPal) then
      set gTourFixPal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
    end if
  end if
  put false into gTourIsPlaying
  put 0 into gPrevHilite
  put 2 into gCurrChan
  put 2 into gFirsChan
  put 11 into gLastChan
end setLocalVariables

on addToRetracexxx
  global gTourList,gRetraceNames,gLastRetraceName
  global gRetraceLabels, gTourLabel, gPageIndex
  put the frameLabel into gTourLabel
  put [] into it
  do "put findpos(gTourList,#"&gTourLabel&") into it"
  put getAt(getAt(gTourList,it),1) into retraceName
  if gLastRetraceName = retraceName then exit
  put the number of lines in gRetraceNames into nr
  put gLastRetraceName into line(nr+1) of gRetraceNames
  put gTourLabel into line(nr+1) of gRetraceLabels
  if nr = 15 then
    delete line 1 of gRetraceNames
    delete line 1 of gRetraceLabels
    put retraceName into gLastRetraceName
  end if
end addToRetracexxx

on getDescr N
  --  searches the data in the list for the product then returns the description
  --  you could make similar handlers for other values in the property lists.
  global Data
  if not listP(Data) then set Data = value(field "data")
  repeat with P in Data
    if the Prod of P = N then return ( the Desc of P )
  end repeat
end

on delay howLong
  startTimer
  repeat while the timer < howLong
  end repeat
end delay

on retraceLocal
  global gTourIsPlaying

  set m = the movie
  set f = the frame

  if gTourIsPlaying then
    cursor 4
    set pausedTour = 1

    pauseTour 1
    cursor -1
  end if

  retrace

  if the movie = m then
    if f = the frame then
      if pausedTour then
        playTour
      end if
    else
      updateStage
      patchpal
    end if
  end if

end


on doContentsLocal
  global gTourIsPlaying
  if gTourIsPlaying then
    cursor 4
    set pausedTour = 1
    pauseTour 1
    cursor -1
    set m = the movie
    set f = the frame
  end if
  doContents

  if pausedTour then
    if the movie = m and f = the frame then playTour
  end if
  --  go movie "TOC.DIR"
  --  abort
end contents